home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Visual Intercept
/
Visual Intercept.iso
/
sheriff.z
/
isincdfn.bas
< prev
next >
Wrap
BASIC Source File
|
1996-08-26
|
11KB
|
278 lines
Attribute VB_Name = "IIIncident"
'----------------------------------------------------------------------------
' isincdfn.bas is a member of the Visual Intercept Visual Basic API.
' Copyright (c) 1996 Elsinore Technologies, Inc. All rights reserved.
'
' This software is protected by copyright law. Unauthorized reproduction
' or distribution of this program, or any portion of it, may result in
' severe civil or criminal penalties. If you have any questions about
' your redistribution rights, please contact Elsinore Technologies, Inc.
'
' Creator: Albert J. Lin (AJL)
' History: Created 09/17/95
'----------------------------------------------------------------------------
'----------------------------------------------------------------------------
' Visual Intercept Incident Declaration:
'----------------------------------------------------------------------------
Public Type VIIncident
incidentID As Long
projectName As String
versionName As String
name As String
subject As String
description As String
resolution As String
workAround As String
requesterID As String
assignedID As String
changeID As String
startTime As String
assignTime As String
changeTime As String
category As String
status As String
priority As String
severity As String
End Type
Public Type IEIncident
incidentID As Long
lpProjectName As String
lpVersionName As String
lpName As String
lpSubject As String
lpDescription As String
lpResolution As String
lpWorkAround As String
lpRequesterID As String
lpAssignedID As String
lpChangeID As String
lpStartTime As String
lpAssignTime As String
lpChangeTime As String
lpCategory As String
lpStatus As String
lpPriority As String
lpSeverity As String
lnProjectName As Integer
lnVersionName As Integer
lnName As Integer
lnSubject As Integer
lnDescription As Integer
lnResolution As Integer
lnWorkAround As Integer
lnRequesterID As Integer
lnAssignedID As Integer
lnChangeID As Integer
lnStartTime As Integer
lnAssignTime As Integer
lnChangeTime As Integer
lnCategory As Integer
lnStatus As Integer
lnPriority As Integer
lnSeverity As Integer
End Type
Public Declare Function IIInsertIncident Lib "isapi.dll" (pIncident As IEIncident) As Long
Public Declare Function IIDeleteIncident Lib "isapi.dll" (pIncident As IEIncident, ByVal clause As String) As Long
Public Declare Function IIModifyIncident Lib "isapi.dll" (pIncident As IEIncident, ByVal clause As String) As Long
Public Declare Function IIFetchIncident Lib "isapi.dll" (pIncident As IEIncident, ByVal clause As String) As Long
Public Declare Function IIFetchIncidents Lib "isapi.dll" (ByRef pnTotal As Long, ByVal clause As String) As Long
Public Declare Function IIGetIncident Lib "isapi.dll" (pIncident As IEIncident, ByVal nIndex As Long) As Long
Public Function VBIIInitIncident(incident As IEIncident)
incident.lnProjectName = lnIIProjectName
incident.lnVersionName = lnIIVersionName
incident.lnName = lnIIIncidentName
incident.lnSubject = lnIISubject
incident.lnDescription = lnIIDescription
incident.lnResolution = lnIIDescription
incident.lnWorkAround = lnIIDescription
incident.lnRequesterID = lnIIUserID
incident.lnAssignedID = lnIIUserID
incident.lnChangeID = lnIIUserID
incident.lnStartTime = lnIIDate
incident.lnAssignTime = lnIIDate
incident.lnChangeTime = lnIIDate
incident.lnCategory = lnIIParameter
incident.lnStatus = lnIIParameter
incident.lnPriority = lnIIParameter
incident.lnSeverity = lnIIParameter
incident.incidentID = 0
incident.lpProjectName = String(incident.lnProjectName, 0)
incident.lpVersionName = String(incident.lnVersionName, 0)
incident.lpName = String(incident.lnName, 0)
incident.lpSubject = String(incident.lnSubject, 0)
incident.lpDescription = String(incident.lnDescription, 0)
incident.lpResolution = String(incident.lnResolution, 0)
incident.lpWorkAround = String(incident.lnWorkAround, 0)
incident.lpRequesterID = String(incident.lnRequesterID, 0)
incident.lpAssignedID = String(incident.lnAssignedID, 0)
incident.lpChangeID = String(incident.lnChangeID, 0)
incident.lpStartTime = String(incident.lnStartTime, 0)
incident.lpAssignTime = String(incident.lnAssignTime, 0)
incident.lpChangeTime = String(incident.lnChangeTime, 0)
incident.lpCategory = String(incident.lnCategory, 0)
incident.lpStatus = String(incident.lnStatus, 0)
incident.lpPriority = String(incident.lnPriority, 0)
incident.lpSeverity = String(incident.lnSeverity, 0)
End Function
Public Function VBIIInsertIncident(userIncident As VIIncident) As Long
Dim incident As IEIncident
Dim err As Long
Call VBIIInitIncident(incident)
Call VBIIPrepareIncident(incident, userIncident)
err = IIInsertIncident(incident)
VBIIInsertIncident = err
End Function
Public Function VBIIModifyIncident(userIncident As VIIncident, ByRef clause As String) As Long
Dim incident As IEIncident
Dim err As Long
Call VBIIInitIncident(incident)
Call VBIIPrepareIncident(incident, userIncident)
err = IIModifyIncident(incident, clause)
VBIIModifyIncident = err
End Function
Public Function VBIIConvertIncident(incident As IEIncident, userIncident As VIIncident)
userIncident.incidentID = incident.incidentID
userIncident.projectName = incident.lpProjectName
userIncident.versionName = incident.lpVersionName
userIncident.name = incident.lpName
userIncident.subject = incident.lpSubject
userIncident.description = incident.lpDescription
userIncident.resolution = incident.lpResolution
userIncident.workAround = incident.lpWorkAround
userIncident.requesterID = incident.lpRequesterID
userIncident.assignedID = incident.lpAssignedID
userIncident.changeID = incident.lpChangeID
userIncident.startTime = incident.lpStartTime
userIncident.assignTime = incident.lpAssignTime
userIncident.changeTime = incident.lpChangeTime
userIncident.category = incident.lpCategory
userIncident.status = incident.lpStatus
userIncident.priority = incident.lpPriority
userIncident.severity = incident.lpSeverity
End Function
Public Function VBIIPrepareIncident(incident As IEIncident, userIncident As VIIncident)
incident.incidentID = userIncident.incidentID
incident.lpProjectName = userIncident.projectName
incident.lpVersionName = userIncident.versionName
incident.lpName = userIncident.name
incident.lpSubject = userIncident.subject
incident.lpDescription = userIncident.description
incident.lpResolution = userIncident.resolution
incident.lpWorkAround = userIncident.workAround
incident.lpRequesterID = userIncident.requesterID
incident.lpAssignedID = userIncident.assignedID
incident.lpChangeID = userIncident.changeID
incident.lpStartTime = userIncident.startTime
incident.lpAssignTime = userIncident.assignTime
incident.lpChangeTime = userIncident.changeTime
incident.lpCategory = userIncident.category
incident.lpStatus = userIncident.status
incident.lpPriority = userIncident.priority
incident.lpSeverity = userIncident.severity
incident.lnProjectName = Len(userIncident.projectName)
incident.lnVersionName = Len(userIncident.versionName)
incident.lnName = Len(userIncident.name)
incident.lnSubject = Len(userIncident.subject)
incident.lnDescription = Len(userIncident.description)
incident.lnResolution = Len(userIncident.resolution)
incident.lnWorkAround = Len(userIncident.workAround)
incident.lnRequesterID = Len(userIncident.requesterID)
incident.lnAssignedID = Len(userIncident.assignedID)
incident.lnChangeID = Len(userIncident.changeID)
incident.lnStartTime = Len(userIncident.startTime)
incident.lnAssignTime = Len(userIncident.assignTime)
incident.lnChangeTime = Len(userIncident.changeTime)
incident.lnCategory = Len(userIncident.category)
incident.lnStatus = Len(userIncident.status)
incident.lnPriority = Len(userIncident.priority)
incident.lnSeverity = Len(userIncident.severity)
End Function
Public Function VBIIFetchIncident(userIncident As VIIncident, ByRef clause As String) As Long
Dim incident As IEIncident
Dim err As Long
Call VBIIInitIncident(incident)
Call VBIIPrepareIncident(incident, userIncident)
err = IIFetchIncident(incident, clause)
If err = 0 Then
Call VBIIConvertIncident(incident, userIncident)
End If
VBIIFetchIncident = err
End Function
Public Function VBIIDeleteIncident(userIncident As VIIncident, ByRef clause As String) As Long
Dim incident As IEIncident
Dim err As Long
Call VBIIInitIncident(incident)
Call VBIIPrepareIncident(incident, userIncident)
err = IIDeleteIncident(incident, clause)
VBIIDeleteIncident = err
End Function
Public Function VBIIFetchIncidents(ByRef rnTotal As Long, ByRef clause As String) As Long
Dim err As Long
err = IIFetchIncidents(rnTotal, clause)
VBIIFetchIncidents = err
End Function
Public Function VBIIGetIncident(userIncident As VIIncident, ByVal nIndex As Long) As Long
Dim incident As IEIncident
Dim err As Long
Call VBIIInitIncident(incident)
err = IIGetIncident(incident, nIndex)
If err = 0 Then
Call VBIIConvertIncident(incident, userIncident)
End If
VBIIGetIncident = err
End Function